home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-3734 / data / newton_2.mcl < prev    next >
Text File  |  1987-04-21  |  1KB  |  72 lines
  1.  
  2. type ball "\data\str_ball.3d";
  3. type pole "\data\pole_660.3d";
  4.  
  5. prefs "\data\sph_pref.prf";
  6. palette 1;
  7.  
  8. object top_pole type pole at [0,-15,600];
  9.  
  10. object ball_1 type ball at [-200,0,600] looking [90*16,0,0];
  11. object ball_2 type ball at [-100,0,600] looking [90*16,0,0];
  12. object ball_3 type ball at [0,0,600] looking [90*16,0,0];
  13. object ball_4 type ball at [100,0,600] looking [90*16,0,0];
  14. object ball_5 type ball at [200,0,600] looking [90*16,0,0];
  15.  
  16. camera cam at [0,0,-400] looking [0,5*16,0];
  17. lightsource lig at [0,0,0];
  18.  
  19. lig.main[] {wait;}
  20. cam.main[] {wait;}
  21.  
  22. ball_1.main[]{
  23.   moveit [90];
  24.   kick ball_5;
  25.   wait;
  26. }
  27. ball_2.main[]{
  28.   moveit [90];
  29.   kick ball_4;
  30.   wait;
  31. }
  32. ball_3.main[]{
  33.   wait;
  34. }
  35. ball_4.main[]{
  36.   wait;
  37.   moveit [-90];
  38.   frame;
  39.   endsim;
  40. }
  41. ball_5.main[]{
  42.   wait;
  43.   moveit [-90];
  44.   frame;
  45.   endsim;
  46. }
  47.  
  48. top_pole.main[]{ wait; }
  49.  
  50. moveit [speed] {
  51.   i_speed = speed*(-1);
  52.   while [speed <> 0]{
  53.     c=c+speed;
  54.     if [speed > 0]{
  55.       speed = speed - 5;
  56.     } else {
  57.       speed = speed + 5;
  58.     }
  59.     frame;
  60.   }
  61.   while [speed <> i_speed]{
  62.     c=c+speed;
  63.     if [i_speed > 0]{
  64.       speed = speed + 5;
  65.     } else {
  66.       speed = speed - 5;
  67.     }
  68.     frame;
  69.   }
  70.   c=c+speed;
  71. }
  72.